home *** CD-ROM | disk | FTP | other *** search
/ Shareware Super Platinum 8 / Shareware Super Platinum 8.iso / mac / DATABASE / PKV4.ZIP;1 / INCLUDE1.CH < prev    next >
Encoding:
Text File  |  1993-02-04  |  3.5 KB  |  86 lines
  1. /*⁄ƒƒƒƒƒƒƒƒƒƒƒƒƒƒƒƒƒƒƒƒƒƒƒƒƒƒƒƒƒƒƒƒƒƒƒƒƒƒƒƒƒƒƒƒƒƒƒƒƒƒƒƒƒƒƒƒƒƒƒƒƒƒƒƒƒƒƒƒƒƒø
  2.  ›≥ Program Name: INCLUDE1.CH       Copyright: Gallagher Computing,Inc.  ≥
  3.  ›≥ Date Created: 07/03/92           Language: Clipper 5.0               ≥
  4.  ›≥ Time Created: 13:44:58             Author: Kevin S Gallagher         ≥
  5.  ›¿ƒƒƒƒƒƒƒƒƒƒƒƒƒƒƒƒƒƒƒƒƒƒƒƒƒƒƒƒƒƒƒƒƒƒƒƒƒƒƒƒƒƒƒƒƒƒƒƒƒƒƒƒƒƒƒƒƒƒƒƒƒƒƒƒƒƒƒƒƒƒŸ
  6.  flflflflflflflflflflflflflflflflflflflflflflflflflflflflflflflflflflflflflflflflflflflflflflflflflflflflflflflflflflflflflflflflflflflflfl            */
  7.  
  8. #include "box.ch"
  9. #include "inkey.ch"
  10. #include "memoedit.ch"
  11. #include "ftint86.ch"
  12. #include "fileio.ch"
  13. #include "Achoice.ch"
  14. #include "directry.ch"
  15. #include "ftmenuto.ch"
  16.  
  17. #define INFO_SIZE       1
  18. #define POS_YEAR_MON    2
  19. #define POS_MON_DAY     3
  20. #define POS_MINUTES     4 
  21. #define POS_MIN_HOUR    5
  22. #define POS_ORIGINAL    6
  23. #define POS_PACKED      7
  24. #define CB_FINISHED     8
  25. #define CB_FILE_TYPE    9
  26. #define CB_FILE_NAME    10
  27.  
  28. //   Defines position in the PACKED FILES INFO array
  29. #define F_NAME_LONG     2
  30. #define F_ORIGINAL      5
  31. #define F_PACKED        6
  32. #define F_RATIO         7
  33. #define F_COMPRESS      8
  34. #define F_NUMBER        9
  35.  
  36. #define KG_SPACE        32
  37. #undef K_SPACEBAR
  38. #define K_SPACEBAR      32
  39. #define TRUE            .T.
  40. #define FALSE           .F.
  41. #define AND             .AND.
  42. #define EQ              ==
  43.  
  44.  
  45. #define MR       MAXROW()
  46. #define MC       MAXCOL()+1
  47. #define CURDRV   FT_DEFAULT()                   //ƒƒ get or change [d:]
  48. #define XPATH    FT_DEFAULT()+":\"+CURDIR(FT_DEFAULT())
  49.  
  50. #define sBlock  { | x | VAL( SUBSTR(x,1,2)) == nParm }
  51. #define SaveFullScreen() oldscrn := SAVESCREEN( 0, 0, MR, MC )
  52. #define RestFullScreen() RESTSCREEN( 0, 0, MR, MC, oldscrn )
  53. #define TBc {'G+','BG','R+','B','G+','RB','R+','BG+','R','B+','G','RB+'}
  54. #define WB "W+/B"
  55. #define YB "GR+/B"
  56.  
  57. *****************************************************************************
  58. *±± UDC for function ZoomBox  ±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±*
  59. *****************************************************************************
  60. #xcommand ZOOMBOX [ TOPROW <nTR>    ]                                       ;
  61.                   [ TOPCOL <nTC>    ]                                       ;
  62.                   [ BOTTOMROW <nBR> ]                                       ;
  63.                   [ BOTTOMCOL <nBC> ]                                       ;
  64.                   [ COLOR <cClrs>   ]                                       ;
  65.                   [ DELAY <nDelay>  ]                                       ;
  66.                   [ SHADOW <lShad>  ]                                       ;
  67.                                       =>                                    ;
  68.                   ZoomBox( <nTR>    ,                                       ;
  69.                            <nTC>    ,                                       ;
  70.                            <nBR>    ,                                       ;
  71.                            <nBC>    ,                                       ;
  72.                            <cClrs>  ,                                       ;
  73.                            <nDelay> ,                                       ;
  74.                            <lShad>                                          )
  75.  
  76. #xtranslate  LSTRINT( < n > )      =>  LTRIM( STR( INT( < n > ) ) )
  77.  
  78. #xcommand DEFAULT < x > TO < y > => < x > :=IF( < y > == NIL, < y >, < x > )
  79.  
  80. #xcommand STABILIZE <x> => DISPBEGIN();;
  81.                            WHILE !(<x>:stabilize());;
  82.                            END;;
  83.                            DISPEND()
  84.  
  85.  
  86.